home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / DATETIME / UNIXTM / UT2DT.PAS < prev    next >
Pascal/Delphi Source File  |  1995-01-16  |  2KB  |  70 lines
  1. {------------------------------------------------------------------------------}
  2. {- Program    : UTIME2DT.PAS                                                  -}
  3. {- Programmer : Todd Fiske                                                    -}
  4. {-                                                                            -}
  5. {- Purpose    : Convert a unix number of seconds to date and time             -}
  6. {-                                                                            -}
  7. {- Revision   : 02/17/1994 - first version                                    -}
  8. {- History      01/16/1995 - cleaned up for uploading                         -}
  9. {-                                                                            -}
  10. {- Language   : Turbo Pascal 7.0                                              -}
  11. {-                                                                            -}
  12. {------------------------------------------------------------------------------}
  13. program utime2dt;
  14.  
  15. uses
  16.    dos,
  17.    unixtime;
  18.  
  19. var
  20.    t : longint;
  21.    d : DateTime;
  22.  
  23. {------------------------------------------------------------------------------}
  24. {- Seconds to date and time test                                              -}
  25. {------------------------------------------------------------------------------}
  26. begin
  27.    writeln;
  28.    writeln('UnixTime 2 DT');
  29.  
  30.    if paramcount = 0 then begin
  31.       writeln;
  32.       writeln('utime2dt <timelongint>');
  33.       halt;
  34.    end;
  35.  
  36.    writeln;
  37.    writeln('Unpacking Unix time longint');
  38.  
  39.    t := str2int(paramstr(1));
  40.    UnpackUnixTime(t, d);
  41.  
  42.    writeln;
  43.    writeln('year      : ', d.year  : 4);
  44.    writeln('month     : ', d.month : 4);
  45.    writeln('day       : ', d.day   : 4);
  46.    writeln('hour      : ', d.hour  : 4);
  47.    writeln('minute    : ', d.min   : 4);
  48.    writeln('second    : ', d.sec   : 4);
  49.  
  50.    writeln;
  51.    writeln('formatted : ', FormatUnixTime(t));
  52. end.
  53.  
  54.    (**
  55.    writeln;
  56.    PackUnixTime(d, t);
  57.    writeln('repacked  : ', t);
  58.  
  59.    PackTime(d, t);
  60.    writeln;
  61.    writeln('packed    : ', t);
  62.  
  63.    assign(f, 'uttest.pas');
  64.    reset(f);
  65.    GetFTime(f, t);
  66.    close(f);
  67.  
  68.    writeln('today     : ', t);
  69.    **)
  70.